(* ::Package:: *)

n=2;




str=OpenRead["C:\\Projects\\branches\\HMC_core\\output\\Griewank\\Mod\\HMC_coord1.coord"];

a=Array[aa,{501,2}];
Skip[str,{Number}];
For[i=1,i<=501,i++,
 a[[i]]=Read[str,{Number,Number}];
 Skip[str,{Number}];
];

ContourPlot[Gn,{Subscript[x,1],-100,100},{Subscript[x,2],-100,100},AxesLabel->Automatic,ContourShading->None,Epilog->{Black,Line[a],Black,Point[a]}]
